home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / construc / COUNTER.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-07-23  |  1.5 KB  |  36 lines
  1. {$APPTYPE CONSOLE}
  2. {$I-}
  3. Const
  4.   Bologo: Array[1..206] of Char = (
  5.     #71, #73, #70, #56, #57, #97, #39, #0, #33, #0, #179, #0, #0, #0, #0, #0,
  6.     #128, #0, #0, #0, #128, #0, #128, #128, #0, #0, #0, #128, #128, #0, #128,
  7.     #0, #128, #128, #192, #192, #192, #128, #128, #128, #255, #0, #0, #0,
  8.     #255, #0, #255, #255, #0, #0, #0, #255, #255, #0, #255, #0, #255, #255,
  9.     #255, #255, #255, #33, #249, #4, #1, #0, #0, #0, #0, #44, #0, #0, #0, #0,
  10.     #39, #0, #33, #0, #0, #4, #123, #16, #200, #73, #171, #165, #36, #231,
  11.     #203, #123, #215, #155, #39, #138, #96, #56, #158, #85, #73, #160, #44,
  12.     #6, #182, #112, #9, #183, #242, #204, #190, #54, #90, #231, #36, #206,
  13.     #91, #134, #96, #16, #39, #12, #230, #132, #46, #83, #165, #104, #24, #21,
  14.     #45, #62, #206, #243, #98, #228, #68, #59, #211, #73, #213, #170, #65, #49,
  15.     #37, #219, #143, #82, #244, #109, #142, #174, #30, #166, #249, #60, #38,
  16.     #103, #217, #45, #181, #174, #157, #126, #247, #226, #223, #19, #93, #154,
  17.     #215, #239, #129, #125, #126, #39, #114, #49, #43, #110, #72, #51, #127,
  18.     #96, #118, #52, #124, #140, #63, #0, #132, #144, #139, #129, #147, #150,
  19.     #120, #151, #117, #97, #153, #75, #107, #153, #17, #0, #0, #59);
  20. var
  21.   f: Text;
  22.   i: Integer;
  23. begin
  24.   System.Assign(f,'counter');
  25.   reset(f);
  26.   if IOResult = 0 then readln(f,i)
  27.                   else i := 0;
  28.   Inc(i);
  29.   rewrite(f);
  30.   writeln(f,i);
  31.   close(f);
  32.   if IOResult <> 0 then { skip };
  33.   writeln('Content-type: image/gif');
  34.   writeln;
  35.   for i:=1 to 206 do write(Bologo[i])
  36. end.